home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / final_calc / finalcalcv1.03a.dms / finalcalcv1.03a.adf / Update to 1.05 < prev    next >
Text File  |  1996-06-16  |  3KB  |  128 lines
  1. ; FinalCalc Installer script - updates to FinalCalc 1.05
  2. ; Copyright © 1995 Khalid Aldoseri
  3. ;
  4. ; $VER: Update to 1.05 - version 0.4 (16 June 1996)
  5. ;
  6.  
  7.  
  8. ; Test to see if FinalCalc is already installed on the system.
  9.  
  10.  
  11.  
  12. (if (exists "FinalCalc:") 
  13.     (
  14.     (set @default-dest "FinalCalc:")
  15.  
  16. ; Copy the extraction utility over and remember where it is
  17.  
  18.     (copyfiles
  19.         (source "FinalCalc Disk 1:lhex")
  20.         (dest "FinalCalc:")
  21.     )
  22.  
  23.     (set lhex "FinalCalc:lhex")
  24.  
  25.     (complete 5)
  26.  
  27.     (set @execute-dir "FinalCalc:")
  28.  
  29.     (set error 0)
  30.  
  31.     (if (exists "FinalCalc:FinalCalc") 
  32.         (
  33.         (working "Updating FinalCalc program from Disk 1.")
  34.  
  35.         (delete "FinalCalc:FinalCalc_old")
  36.         (rename "FinalCalc:FinalCalc" "FinalCalc:FinalCalc_old")
  37.  
  38.         (set error
  39.             (run
  40.                 ("\"%s\" -f x \"FinalCalc Disk 1:FC.lha\" >NIL:" lhex))
  41.         )
  42.  
  43.         (if error
  44.             (abort ("Error updating FinalCalc:\n\n  Cannot find or read FC.lha file\n from Disk 1."))
  45.         )
  46.         )
  47.     )
  48.  
  49.  
  50.     (complete 40)
  51.  
  52.     (if (exists "FinalCalc:FinalCalc.FPU") 
  53.         (
  54.         (working "Updating FinalCalc.FPU program from Disk 2.")
  55.  
  56.         (delete "FinalCalc:FinalCalc.FPU_old")
  57.         (rename "FinalCalc:FinalCalc.FPU" "FinalCalc:FinalCalc.FPU_old")
  58.  
  59.         (set error
  60.             (run
  61.                 ("\"%s\" -f x \"FinalCalc Disk 2:FCfpu.lha\" >NIL:" lhex))
  62.         )
  63.  
  64.         (if error
  65.             (abort ("Error updating FinalCalc:\n\n  Cannot find or read FCfpu.lha file\n from Disk 2."))
  66.         )
  67.         )
  68.     )
  69.  
  70.  
  71.  
  72.  
  73.     (complete 60)
  74.  
  75.     (if (exists "FinalCalc:Guide/main.guide") 
  76.         (
  77.         (set @execute-dir "FinalCalc:Guide")
  78.         (working "Updating help files from Disk 2.")
  79.  
  80.         (set error
  81.             (run
  82.                 ("\"%s\" -f x \"FinalCalc Disk 2:FCguide.lha\" >NIL:" lhex))
  83.         )
  84.  
  85.         (if error
  86.             (abort ("Error updating FinalCalc:\n\n  Cannot find or read FCguide.lha file\n from Disk 2."))
  87.         )
  88.         )
  89.     )
  90.  
  91.     (complete 70)
  92.  
  93.     (set @execute-dir "FinalCalc:Libs")
  94.     (working "Updating libraries from Disk 2.")
  95.  
  96.     (set error
  97.         (run
  98.             ("\"%s\" -f x \"FinalCalc Disk 2:FClibs.lha\" >NIL: kd_freq.library" lhex))
  99.     )
  100.  
  101.     (if error
  102.         (abort ("Error updating FinalCalc:\n\n  Cannot find or read FClibs.lha file\n from Disk 2."))
  103.     )
  104.  
  105.  
  106.     (complete 80)
  107.  
  108.     (set @execute-dir "FinalCalc:PanelIcons")
  109.     (working "Updating icons from Disk 2.")
  110.  
  111.     (set error
  112.         (run
  113.             ("\"%s\" -f x \"FinalCalc Disk 2:FCicons.lha\" >NIL:" lhex))
  114.     )
  115.  
  116.     (if error
  117.         (abort ("Error updating FinalCalc:\n\n  Cannot find or read FCicons.lha file\n from Disk 2."))
  118.     )
  119.  
  120.  
  121.     (delete lhex)
  122.     (complete 100)
  123.     (exit)
  124.     )
  125. )
  126.  
  127. (abort ("FinalCalc Update failed!\n\nCould not find where FinalCalc is installed on your system.\n\nIf it is not yet installed, use the 'Install-FinalCalc' icon to install it."))
  128.